Language/OS - Multiplatform Resource Library/LANGUAGE OS.iso/lisp/eulisp/comp0_89.lha/Feel/Boot/Compiler/triang.fm

Text File | 1993-07-16 | 6KB | 1,251 lines

(standard)
11
2117
(16 1 14 0 2 4 3 5 6 11 12 13 7 8 10 15 9 triang "Answer: ~a~%" 36 22 (testtriang gogogo try) ((strip (union (rename ((binary+_Integer binary+) (binary=_Integer =)) (union (except (= binary+) (union (import standard))))))) testtriang gogogo try) triang)
36
0 0 17 0
5
0 0 0 0
3
0
31
0 0 130 0
17
1
36
0 0 27 0
5
0 0 0 0
4
0 0 24 0
46
1
(boot . make-installed-module)
34
2
36
0 0 60 0
5
0 0 0 0
8
3
4
0 0 22 0
5
0 0 25 0
3
0
39
8
0
5
0 0 26 0
3
0
39
28
1
5
0 0 27 0
3
0
39
28
1
17
1
1
(boot . install-local-bindings)
34
3
17
1
36
0 0 28 0
5
0 0 1 0
8
3
4
0 0 23 0
1
(boot . make-interface)
34
2
17
1
14
2
1
37
22
0
3
0
7
0 0 28 0
3
0
7
0 0 29 0
1
(vectors . make-vector)
4
0 0 1 0
4
0 0 2 0
3
0
39
62
-2
7
0 0 30 0
1
(vectors . make-vector)
4
0 0 3 0
4
0 0 4 0
3
0
39
62
-2
7
0 0 31 0
1
(vectors . make-initialized-vector)
4
0 0 2 0
3
0
39
9
4
0 0 5 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 2 0
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 5 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 10 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 13 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 13 0
3
0
39
29
4
0 0 10 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 9 0
3
0
39
29
18
62
-1
7
0 0 32 0
1
(vectors . make-initialized-vector)
4
0 0 5 0
3
0
39
9
4
0 0 6 0
3
0
39
29
4
0 0 13 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 5 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 13 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 8 0
3
0
39
29
18
62
-1
7
0 0 33 0
1
(vectors . make-initialized-vector)
4
0 0 6 0
3
0
39
9
4
0 0 13 0
3
0
39
29
4
0 0 10 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 3 0
3
0
39
29
4
0 0 16 0
3
0
39
29
4
0 0 17 0
3
0
39
29
4
0 0 15 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 2 0
3
0
39
29
4
0 0 5 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 2 0
3
0
39
29
4
0 0 7 0
3
0
39
29
4
0 0 9 0
3
0
39
29
4
0 0 5 0
3
0
39
29
4
0 0 8 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 10 0
3
0
39
29
4
0 0 11 0
3
0
39
29
4
0 0 12 0
3
0
39
29
4
0 0 13 0
3
0
39
29
4
0 0 14 0
3
0
39
29
4
0 0 6 0
3
0
39
29
4
0 0 6 0
3
0
39
29
18
62
-1
7
0 0 34 0
4
0 0 30 0
4
0 0 8 0
4
0 0 4 0
24
18
36
0 2 211 0
11
4
0 0 18 0
5
0 0 0 0
39
51
0
7
0 0 35 0
36
0 0 173 0
11
4
0 0 18 0
6
1
39
51
2
7
0 0 27 0
36
0 0 126 0
11
4
0 0 18 0
6
2
39
51
1
7
0 0 26 0
36
0 0 25 0
11
4
0 0 18 0
6
3
39
51
0
7
0 0 25 0
18
3
1
37
1
(others . cpu-time)
62
0
36
0 0 22 0
4
0 0 26 0
4
0 0 21 0
3
0
31
0 0 52 0
18
1
(streams1 . print)
1
(arith . -)
1
(others . cpu-time)
62
0
12
3
0
39
62
-2
3
0
11
14
6
3
9
13
4
34
-2
4
0 0 27 0
11
4
0 0 2 0
11
14
6
3
9
13
4
18
3
0
31
0 0 5 0
1
(arith . binary=_Integer)
11
4
0 0 3 0
62
2
32
0 0 124 0
36
0 0 17 0
4
0 0 35 0
3
0
31
0 1 236 0
9
4
0 0 29 0
49
32
0 0 12 0
3
0
31
0 0 18 0
9
4
0 0 29 0
39
9
7
0 0 29 0
17
2
1
(vectors . convert-vector-list)
4
0 0 31 0
62
1
27
4
0 0 28 0
39
9
7
0 0 28 0
18
36
0 0 33 0
1
(extras0 . format)
3
1
4
0 0 19 0
4
0 0 28 0
26
3
0
39
12
34
-3
17
4
3
1
37
1
(arith . binary=_Integer)
4
0 0 2 0
4
0 0 30 0
4
0 0 32 0
8
6
23
23
62
2
32
0 0 82 0
1
(arith . binary=_Integer)
4
0 0 2 0
4
0 0 30 0
4
0 0 33 0
8
6
23
23
62
2
32
0 0 40 0
1
(arith . binary=_Integer)
4
0 0 4 0
4
0 0 30 0
4
0 0 34 0
8
6
23
23
62
2
31
0 0 7 0
3
0
31
0 0 7 0
3
0
32
0 0 177 0
4
0 0 30 0
4
0 0 32 0
8
4
23
4
0 0 4 0
24
18
4
0 0 30 0
4
0 0 33 0
8
4
23
4
0 0 4 0
24
18
4
0 0 30 0
4
0 0 34 0
8
4
23
4
0 0 2 0
24
18
4
0 0 31 0
11
8
4
24
18
36
0 0 37 0
3
0
4
0 0 4 0
1
(arith . binary+_Integer)
8
6
4
0 0 2 0
62
2
3
0
31
0 0 75 0
18
4
0 0 30 0
4
0 0 32 0
8
4
23
4
0 0 2 0
24
18
4
0 0 30 0
4
0 0 33 0
8
4
23
4
0 0 2 0
24
18
4
0 0 30 0
4
0 0 34 0
8
4
23
4
0 0 4 0
24
17
4
3
0
37
17
3
3
0
37
1
(arith . binary=_Integer)
12
4
0 0 20 0
62
2
9
32
0 0 11 0
9
31
0 0 26 0
36
0 0 21 0
4
0 0 27 0
8
6
8
6
3
0
31
0 1 226 1
15
2
32
0 0 10 0
17
3
3
0
37
1
(arith . binary+_Integer)
12
4
0 0 2 0
62
2
13
3
18
3
0
31
0 0 84 1
18
4
0 0 2 0
3
0
31
0 0 5 0
1
(arith . binary=_Integer)
11
1
(vectors . vector-length)
4
0 0 30 0
62
1
62
2
32
0 0 13 0
17
2
4
0 0 4 0
37
1
(arith . binary=_Integer)
4
0 0 2 0
4
0 0 30 0
8
4
23
62
2
32
0 0 7 0
18
37
1
(arith . binary+_Integer)
11
4
0 0 2 0
62
2
15
3
3
0
31
0 0 93 1